DLL version
Private Sub mnuFileVersionDLL_Click()
Dim result%, VersionNum As Single
result% = PEOpenEngine()
If result% = 0 Then
MsgBox "Could not start the report engine. Execution must halt.", vbOKOnly + vbCritical, "Serious Error"
End
End If
VersionNum = PEVBGetVersion(PE_GV_DLL)
MsgBox "DLL Version Number " & VersionNum, vbOKOnly + vbInformation, "DLL Version"
PECloseEngine
MsgBox "DLL Version Complete!", vbOKOnly, "Operation Succeeded"
End Sub
Engine version
Private Sub mnuFileVersionEngine_Click()
Dim result%, VersionNum As Single
result% = PEOpenEngine()
If result% = 0 Then
MsgBox "Could not start the report engine. Execution must halt.", vbOKOnly + vbCritical, "Serious Error"
End
End If
VersionNum = PEVBGetVersion(PE_GV_ENGINE)
MsgBox "Engine Version Number " & VersionNum, vbOKOnly + vbInformation, "Engine Version"
PECloseEngine
MsgBox "Engine Version Complete!", vbOKOnly, "Operation Succeeded"
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |